VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarBitmap As Picture 'local copy
Private mvarBookmark As Variant 'local copy
Private mvarCaption As String 'local copy
Private mvarExpanded As Integer 'local copy
Private mvarIsParent As Boolean 'local copy
Private mvarItemData As Long 'local copy
Private mvarLevel As Integer 'local copy
Private mvarSelected As Integer 'local copy
Private mvarSyncIdx As Integer 'local copy
Private mvarVisible As Integer 'local copy
Private mvarVisibleIdx As Long 'local copy
Public Property Let VisibleIdx(ByVal vData As Long)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.VisibleIdx = 5
    mvarVisibleIdx = vData
End Property


Public Property Get VisibleIdx() As Long
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.VisibleIdx
    VisibleIdx = mvarVisibleIdx
End Property



Public Property Let Visible(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Visible = 5
    mvarVisible = vData
End Property


Public Property Get Visible() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Visible
    Visible = mvarVisible
End Property



Public Property Let SyncIdx(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.SyncIdx = 5
    mvarSyncIdx = vData
End Property


Public Property Get SyncIdx() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SyncIdx
    SyncIdx = mvarSyncIdx
End Property



Public Property Let Selected(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Selected = 5
    mvarSelected = vData
End Property


Public Property Get Selected() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Selected
    Selected = mvarSelected
End Property



Public Property Let Level(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Level = 5
    mvarLevel = vData
End Property


Public Property Get Level() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Level
    Level = mvarLevel
End Property



Public Property Let Itemdata(ByVal vData As Long)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ItemData = 5
    mvarItemData = vData
End Property


Public Property Get Itemdata() As Long
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ItemData
    Itemdata = mvarItemData
End Property



Public Property Let IsParent(ByVal vData As Boolean)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.IsParent = 5
    mvarIsParent = vData
End Property


Public Property Get IsParent() As Boolean
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.IsParent
    IsParent = mvarIsParent
End Property



Public Property Let Expanded(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Expanded = 5
    mvarExpanded = vData
End Property


Public Property Get Expanded() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Expanded
    Expanded = mvarExpanded
End Property



Public Property Let Caption(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Caption = 5
    mvarCaption = vData
End Property


Public Property Get Caption() As String
Attribute Caption.VB_UserMemId = 0
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Caption
    Caption = mvarCaption
End Property



Public Property Let Bookmark(ByVal vData As Variant)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Bookmark = 5
    mvarBookmark = vData
End Property


Public Property Get Bookmark() As Variant
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Bookmark
    Bookmark = mvarBookmark
End Property



Public Property Let Bitmap(ByVal vData As Picture)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Bitmap = 5
    Set mvarBitmap = vData
End Property


Public Property Get Bitmap() As Picture
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Bitmap
    Set Bitmap = mvarBitmap
End Property



